home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / util / misc / executive.lha / Executive_V1.20 / Install / UnInstall.Executive < prev   
Text File  |  1995-10-22  |  8KB  |  283 lines

  1. ;
  2. ; Executive UnInstallation script
  3. ;
  4. ; Copyright ⌐ 1995 Petri Nordlund. All rights reserved.
  5. ;
  6. ; $Id: UnInstall.Executive 1.8 1995/09/03 14:27:53 petrin Exp petrin $
  7. ;
  8. ; Languages available:
  9. ;   English (default)
  10. ;   Suomi
  11. ;
  12.  
  13.  
  14. ; =======================================================================
  15. ;   Set up some variables
  16. ; =======================================================================
  17.  
  18. (set TRUE        1)
  19. (set FALSE        0)
  20.  
  21. ; =======================================================================
  22. ;   Set up localized strings
  23. ; =======================================================================
  24.  
  25. ; ==== Ask users language
  26. (set sel_lang
  27.     (askchoice
  28.         (prompt "Please select your language")
  29.         (help @askoptions-help)
  30.         (choices
  31.             "English"
  32.             "Suomi"
  33. ;            "Franτais"
  34. ;            "Deutsch"
  35. ;            "Norsk"
  36.             "Nederlands"
  37.             "Svenska"
  38. ;            "Dansk"
  39. ;            "Espa±ol"
  40. ;            "Italiano"
  41. ;            "PortuguΩs"
  42.         )
  43.         (default 0)
  44.     )
  45. )
  46.  
  47. (set @language
  48.     (select sel_lang
  49.         "English"
  50.         "Suomi"
  51. ;        "Franτais"
  52. ;        "Deutsch"
  53. ;        "Norsk"
  54.         "Nederlands"
  55.         "Svenska"
  56. ;        "Dansk"
  57. ;        "Espa±ol"
  58. ;        "Italiano"
  59. ;        "PortuguΩs"
  60.             ""
  61.     )
  62. )
  63.  
  64.  
  65. ;
  66. ; ===== English
  67. ;
  68. (set #please_close "\nThis program will DELETE Executive from your harddisk. All files that belong to Executive will be deleted. Other files won't be touched.\n\n\nPLEASE CLOSE THE EXECUTIVE DIRECTORY WINDOW IN WORKBENCH SCREEN SO THE DIRECTORY CAN BE DELETED.")
  69. (set #savekey "\nDo you want to copy your personal keyfile to S: directory, so it will be saved for the time when you reinstall Executive? Executive will find the key from S: directory.")
  70. (set #yes "Yes, copy key to S:")
  71. (set #no "No, delete the key")
  72. (set #userstartup "; Executive has been uninstalled.")
  73. (set #rempath "\nA `Path'-command in your \"S:User-Startup\" file will now be removed.")
  74. (set #remhelp "When you installed Executive, the installation script added some commands to your \"S:User-Startup\" file. These commands will now be removed.")
  75. (set #done "\nExecutive has been uninstalled successfully.")
  76.  
  77. ;
  78. ; ===== Suomi
  79. ;
  80. (if (= @language "Suomi")
  81. (
  82. (set #please_close "\nTΣmΣ ohjelma POISTAA Executiven kovalevyltΣsi. Kaikki Executiveen kuuluvat tiedostot tuhotaan. Muihin tiedostoihin ei kosketa.\n\n\nSULJE WORKBENCH-RUUDULLA AVOINNA OLEVA EXECUTIVEN HAKEMISTO-IKKUNA, MUUTOIN HAKEMISTOA EI VOI POISTAA.")
  83. (set #savekey "\nHaluatko kopioida henkil÷kohtaisen suojausavaimesi S: hakemistoon, josta Executive l÷ytΣΣ sen jos asennat Executiven uudelleen?")
  84. (set #yes "KyllΣ")
  85. (set #no "En")
  86. (set #userstartup "; Executive on poistettu.")
  87. (set #rempath "\n`Path┤-komento \"S:User-Startup\" tiedostossa poistetaan.")
  88. (set #remhelp "Kun asensit Executiven, asennusohjelma lisΣsi muutamia komentoja \"S:User-Startup\" tiedostoon. NΣmΣ komennot poistetaan.")
  89. (set #done "\nExecutive on onnistuneesti poistettu koneestasi.")
  90. )) ; end of if statement
  91.  
  92. ;
  93. ; ===== Franτais
  94. ;
  95. ;(if (= @language "Franτais")
  96. ;(
  97. ;)) ; end of if statement
  98.  
  99. ;
  100. ; ===== Deutsch
  101. ;
  102. ;(if (= @language "Deutsch")
  103. ;(
  104. ;)) ; end of if statement
  105.  
  106. ;
  107. ; ===== Norsk
  108. ;
  109. ;(if (= @language "Norsk")
  110. ;(
  111. ;)) ; end of if statement
  112.  
  113. ;
  114. ; ===== Nederlands
  115. ;
  116. (if (= @language "Nederlands")
  117. (
  118. (set #please_close "\nDit programma zal Executive van uw harddisk verwijderen. Alle bestanden die behoren tot Executive zullen worden verwijderd. Andere bestanden zullen met rust worden gelaten.\n\n\nSLUIT U ALSTUBLIEFT DE EXECUTIVE LADE IN UW WORKBENCH ZODAT EXECUTIVE KAN WORDEN VERWIJDERD.")
  119. (set #savekey "\nWilt u uw persoonlijke keyfile naar de S: lade gekopieδrd hebben, zodat deze kan worden bewaard voor het geval dat u Executive opnieuw wilt installeren? Executive zal deze keyfile ook vinden vanuit de S: lade.")
  120. (set #yes "Ja, kopieδr key naar S:")
  121. (set #userstartup "; Executive is verwijderd.")
  122. (set #rempath "\nEen `Path'-commando in uw \"S:User-Startup\" bestand zal nu worden verwijderd.")
  123. (set #remhelp "Toen u Executive ge∩nstalleerd heeft, heeft het installatie script enkele commando's toegevoegd aan uw \"S:User-Startup\" bestand. Deze commando's zullen nu verwijderd worden.")
  124. (set #done "\nExecutive is succesvol verwijderd.")
  125. )) ; end of if statement
  126.  
  127. ;
  128. ; ===== Svenska
  129. ;
  130. (if (= @language "Svenska")
  131. (
  132. (set #please_close "\nDet hΣr programmet kommer att TA BORT Execute frσn din hσrddisk. Alla filer som tillh÷r Executive raderas. Andra filer lΣmnas or÷rda.\n\n\nST─NG EXECUTIVE-F╓NSTRET P┼ WORKBENCHSK─RMEN S┼ ATT L┼DAN KAN RADERAS.")
  133. (set #savekey "\nVill du kopiera din personliga nyckelfil till S:-lσdan, sσ att den sparas tills du σter installerar Executive? Executive hittar filen i S:-lσdan.")
  134. (set #yes "Ja, kopiera nyckeln till S:")
  135. (set #no "Nej, radera nyckeln")
  136. (set #userstartup "; Executive har avinstallerats.")
  137. (set #rempath "\n`Path'-kommandot i din \"S:User-Startup\"-fil kommer nu att tas bort.")
  138. (set #remhelp "NΣr du installerade Executive sσ adderade installationsskriptet nσgra kommandon till \"S:User-Startup\"-filen. Dessa kommandon tas nu bort.")
  139. (set #done "\nExecutive har avinstallerats.")
  140. )) ; end of if statement
  141.  
  142. ;
  143. ; ===== Dansk
  144. ;
  145. ;(if (= @language "Dansk")
  146. ;(
  147. ;)) ; end of if statement
  148.  
  149. ;
  150. ; ===== Espa±ol
  151. ;
  152. ;(if (= @language "Espa±ol")
  153. ;(
  154. ;)) ; end of if statement
  155.  
  156. ;
  157. ; ===== Italiano
  158. ;
  159. ;(if (= @language "Italiano")
  160. ;(
  161. ;)) ; end of if statement
  162.  
  163. ;
  164. ; ===== PortuguΩs
  165. ;
  166. ;(if (= @language "PortuguΩs")
  167. ;(
  168. ;)) ; end of if statement
  169.  
  170.  
  171. ; =======================================================================
  172. ;   Initialization
  173. ; =======================================================================
  174.  
  175. ; Logfile is written to RAM:
  176. (set @default-dest "RAM:")
  177.  
  178.  
  179. ; change userlevel to expert
  180. (procedure expert_level
  181.     ((user 2))
  182. )
  183. ; reset userlevel back to default
  184. (procedure default_level
  185.     ((user default-level))
  186. )
  187. ; store off userlevel
  188. (procedure save_default_level
  189.     ((set default-level @user-level))
  190. )
  191.  
  192. (save_default_level)
  193. (expert_level)
  194.  
  195. ; =======================================================================
  196. ;   Uninstall
  197. ; =======================================================================
  198.  
  199. (complete 0)
  200.  
  201. (message #please_close)
  202.  
  203. (run "ExDest:Executive/Executive QUIT")
  204.  
  205. (set keyexists FALSE)
  206.  
  207. (if (exists ("ExDest:Executive/Executive.key") (noreq))
  208.     (set keyexists TRUE)
  209. ) ; end of if statement
  210. (if (exists ("S:Executive.key") (noreq))
  211.     (set keyexists TRUE)
  212. ) ; end of if statement
  213. (if (exists ("ENV:Executive.key") (noreq))
  214.     (set keyexists TRUE)
  215. ) ; end of if statement
  216. (if (exists ("ENVARC:Executive.key") (noreq))
  217.     (set keyexists TRUE)
  218. ) ; end of if statement
  219.  
  220. (if (= keyexists TRUE)
  221. (
  222.     (if (askbool
  223.         (prompt #savekey)
  224.         (help @askbool-help)
  225.         (default 0)
  226.         (choices #yes #no))
  227.         (
  228.             ; copy key
  229.             (run "copy ENVARC:Executive.key S:")
  230.             (run "copy ENV:Executive.key S:")
  231.             (run "copy ExDest:Executive/Executive.key S:")
  232.         )
  233.         (
  234.             ; delete key
  235.             (run "delete S:Executive.key")
  236.         )
  237.     )
  238.     (run "delete ENVARC:Executive.key")
  239.     (run "delete ENV:Executive.key")
  240. )) ; end of if statement
  241.  
  242. (complete 50)
  243.  
  244. (run "Delete ExDest:Executive ALL FORCE QUIET")
  245. (run "Delete ExDest:Executive.info ALL FORCE QUIET")
  246. (run "Delete S:Executive.prefs")
  247. (run "Delete ENV:Executive.prefs")
  248. (run "Delete ENVARC:Executive.prefs")
  249. (if (exists "LOCALE:" (noreq))
  250. (
  251.     (run "Delete LOCALE:Catalogs/Suomi/Executive.catalog")
  252.     (run "Delete LOCALE:Catalogs/Franτais/Executive.catalog")
  253.     (run "Delete LOCALE:Catalogs/Deutsch/Executive.catalog")
  254.     (run "Delete LOCALE:Catalogs/Norsk/Executive.catalog")
  255.     (run "Delete LOCALE:Catalogs/Nederlands/Executive.catalog")
  256.     (run "Delete LOCALE:Catalogs/Svenska/Executive.catalog")
  257.     (run "Delete LOCALE:Catalogs/Dansk/Executive.catalog")
  258.     (run "Delete LOCALE:Catalogs/Espa±ol/Executive.catalog")
  259.     (run "Delete LOCALE:Catalogs/Italiano/Executive.catalog")
  260.     (run "Delete LOCALE:Catalogs/PortuguΩs/Executive.catalog")
  261. )) ; end of if statement
  262.  
  263. (complete 90)
  264.  
  265. (default_level)
  266.  
  267. ; ===== Remove path-command from s:user-startup
  268. (startup "Executive"
  269.     (prompt (#rempath))
  270.     (help #remhelp)
  271.     (command #userstartup)
  272. )
  273.  
  274. (complete 100)
  275.  
  276. (makeassign "ExDest" (safe))
  277.  
  278. (expert_level)
  279.  
  280. (message #done)
  281.  
  282. (exit (quiet))
  283.